;Im Moment funktioniert der Which-Check nur, wenn C: KEIN ROOT ist, also nicht
; C:=Workbench:, sondern C: = Workbench:c/ <- wegen dem Schrägstrich
if not exists ram:t
makedir ram:t
endif ;Siehste, so einfach geht das! :)
;assign guis: "" ;Damit der Gauge.gc nur hier sucht!
assign vorher: ""
cd c:
set CDIR "`cd`"
cd vorher:
set whichcount 0 ;Anzahl der Programme im falschen Dir
set WCount 12 ;Anzahl der zu prüfenden Tools, manuell eintragen! Gleich wie unten!
set dir AFCD:c/
setenv .val 0
set tool1 vt
set tool2 fv
set tool3 tv
set tool4 Powerplayer
set tool5 PLAY16
set tool6 STP
set tool7 MPEGA
set tool8 PPMore
set tool9 More
set tool10 MuchMore
set tool11 AmigaGuide
set tool12 Installer
set updater 2 ;12*2*3 =72 +5 + 5+5+5+4+4
Gui vorher:Gauge.gc ;Startet Anzeige
set n 0
lab Which-for
if $n eq $Wcount ;FOR n=0 TO $WCount
skip Which-Next
endif
set n `eval $n + 1`
which `get tool$n` NORES >ENV:temp
;getenv temp >NIL: ;Stellt fest, ob temp leer ist
;if NOT Warn ;Funzt nicht, weil Which ein " " reinschreibt
if NOT `list env:temp LFORMAT=%L` eq "empty"
list "$temp" lformat=%F >ENV:tooldir$n
striptease env:tooldir$n ENV:TEMP 1 END >nil:
set tooldir$n `getenv temp`
;Entfernt "/"
unsetenv temp
endif
get tooldir$n >NIL:
if warn ;Tool nicht im Pfad gefunden
set toolskip$n 0
skip back Which-for
endif
if "$CDIR/" EQ "`get tooldir$n`"
set toolskip$n 0
set copytool$n " "
else
set toolskip$n 1 ;Datei existiert, aber nicht in c:
set whichcount `eval $whichcount + 1`
set TempHurra `get tooldir$n`
set copytool$n $temphurra`get tool$n` ;???
endif
;Start Gauge Update
eval `getenv .val` + $updater >env:tempevil
setenv .val $tempevil
Gui vorher:sub.gc
;End Gauge Update
skip back Which-for ;NEXT
lab Which-Next
if $whichcount NOT eq 0
Echo >ram:Tempa "Text *"Warnung:*"*nText *"Um die reibungslose Funktion der AFuture CD zu gewährleisten *"*nText *"werden gewisse Tools im C: Verzeichnis ihrer Festplatte benötigt.*"*nText *"$whichcount dieser Tools wurden in anderen Verzeichnissen ihrer *"*nText *"Festplatte lokalisiert. Für einen reibungslosen Ablauf wird *"*n"
Echo >ram:Tempb "Text *"empfohlen, diese Programme nun nach $CDIR zu kopieren. *"*nText *"Sie können nun auch ohne Kopieren fortfahren. *"*nText *"Sollten im Verlauf des Benutzens Fehler auftreten, sollten sie *"*nText *"aber dennoch folgende Tools nach $CDIR kopieren: *"*nText *"$copytool1 $copytool2 $copytool3 $copytool4 $copytool5*"*nText *"$copytool6 $copytool7 $copytool8 $copytool9 $copytool10 $copytool11 $copytool12*"*n"
join ram:tempa ram:tempb TO env:Afuturetxt
delete ram:tempa >NIL:
delete ram:tempb >nil:
set copy `selector req.sel Kopieren Weiter`
if $copy eq 1
;Kopierschleife
set n 0
lab copystart
if $n eq $Wcount ;FOR n=0 TO $WCount
skip copyNext
endif
set n `eval $n + 1`
if `get toolskip$n` eq 1 VAL
set tempvar `get tooldir$n`
copy "$tempvar`get tool$n`" TO C:; quiet >NIL:
endif
skip back copystart ;NEXT
lab copyNext
set n 0
endif
endif
;Ende Teil 1
;Begin Teil2
set n 0
set count 0
set choice 0
; Begin For-Next Hack ® by The Saint
set n 0
lab Check
if $n eq $Wcount ;FOR n=0 TO $WCount
skip CheckNext
endif
set n `eval $n + 1`
if `get toolskip$n` NOT eq 1 VAL ;ToolNRx wird nur gecheckt, wenn nicht schon mit Which gefunden!
if not exists "c:`get tool$n`"
;set toolname1 VT ;Die Datei
set count `eval $count + 1` ;Anzahl der Dateien
set CopyMich$n 1
set reqtool$n "`get tool$n`" ;Erscheint im Requester
else
set CopyMich$n 0
set reqtool$n " "
endif
endif
;Start Gauge Update
eval `getenv .val` + $updater >env:tempevil
setenv .val $tempevil
Gui vorher:sub.gc
;End Gauge Update
skip back Check ;NEXT
lab CheckNext
set n 0
if $count NOT eq 0 VAL
echo >Env:AFuturetxt "Text *"Warnung:*"*nText *"Auf ihrem Rechner fehlen $count Programm(e) im C:*"*nText *"Verzeichnis. Diese Programme werden für einen*"*nText *"reibungslosen Ablauf der AFuture CD dringend*"*nText *"empfohlen. Folgende Komponenten sind nicht vorhanden:*"*nText *"$reqtool1 $Reqtool2 $Reqtool3 $Reqtool4 $Reqtool5*"*nText *"$Reqtool6 $Reqtool7 $Reqtool8 $Reqtool9 $Reqtool10 $Reqtool11 $reqtool12*"*nText *"Wir empfehlen dringend diese nun zu installieren!*"*n"
set choice `selector req.sel Installieren Weiter`
endif
if $choice eq 1
skip proceed
else
skip cancel
endif
lab proceed
; Begin For-Next Hack ® by The Saint
set n 0
lab for
if $n eq $Wcount ;FOR n=0 TO $WCount
skip Next
endif
set n `eval $n + 1`
if `get toolskip$n` NOT eq 1 VAL ;Nur kopieren, wenn nicht schon per Which gefragt
if `get copymich$n` EQ 1 VAL ;Nur kopieren, wenn nicht da
copy $dir`get tool$n` TO C: quiet >NIL: ;Kopiert automatisch alle Tools nach C:
endif
endif
skip back for ;NEXT
lab Next
set n 0
lab cancel
;Ende Teil 2
;Anfang Teil 3
;Versionchecker - Main Part, Idea by Higgins
set VCount 0
set n 0
lab Versionfor
if $n eq $Wcount ;FOR n=0 TO $WCount
skip VersionNext
endif
set n `eval $n + 1`
if exists CDIR/`get tool$N`
version $dir`get tool$n` >env:AFVersion$n
Version $cdir/`get tool$n` >env:CVersion$n
set Alpha `getenv AFVersion$n`
set beta `getenv CVersion$n` ;Mir gehen langsam die Namen für die Variablen aus...
set FutureRtgVersion `version AFCD:libs/rtgmaster.library`
set libsrtgversion `version libs:rtgmaster.library`
if "$libsrtgversion" NOT EQ "$FutureRtgVersion"
set nope 1
endif
endif
If $Nope eq 1
Echo >ENV:Afuturetxt "Text *"Warnung:*"*nText *"Entweder haben sie RTG nicht installiert,*"*nText *"oder sie verwenden evtl. eine veraltete Version.*"*nSpace*nText *"RTG wird von einigen Spielen benötigt, um*"*nText *"korrekt zu laufen. Wir empfehlen ihnen dringend, es *"*nText *"nun zu installieren!*"*nText *"Empfohlene Version: $FutureRTGVersion*"*nText *"Installierte Version: $LibsRTGVersion*"*n"
set rtgcopy `Selector req.sel Installieren Weiter`
if $rtgcopy eq 1
Echo "Hier RTG Installer starten"
endif
endif
;Start Gauge Update
eval `getenv .val` + 7 >env:tempevil
setenv .val $tempevil
Gui vorher:sub.gc
;End Gauge Update
;Start AHI-Check
set nope 0; Default
If not exists DEVS:Ahi.device
set nope 1
set libsahiversion "Keine!"
ELSE
set FutureahiVersion `version AFCD:devs/ahi.device`
set libsahiversion `version devs:ahi.device`
if "$libsahiversion" NOT EQ "$FutureAhiVersion"
set nope 1
endif
endif
If $Nope eq 1
Echo >ENV:Afuturetxt "Text *"Warnung:*"*nText *"Entweder haben sie AHI nicht installiert,*"*nText *"oder sie verwenden evtl. eine veraltete Version.*"*nSpace*nText *"AHI wird von einigen Spielen benötigt, um*"*nText *"korrekt zu laufen. Wir empfehlen ihnen dringend, es *"*nText *"nun zu installieren!*"*nText *"Empfohlene Version: $FutureRTGVersion*"*nText *"Installierte Version: $LibsAHIVersion*"*n"
set ahicopy `Selector req.sel Installieren Weiter`
if $ahicopy eq 1
Echo "Hier AHI Installer Starten"
endif
endif
;Start Reqtools Check
;Start Gauge Update
eval `getenv .val` + 7 >env:tempevil
setenv .val $tempevil
Gui vorher:sub.gc
;End Gauge Update
set nope 0; Default
If not exists Libs:reqtools.library
set nope 1
set libsreqversion "Keine!"
ELSE
set FutureReqVersion `version AFCD:libs/reqtools.library`
set libsreqversion `version libs:reqtools.library`
if "$libsreqversion" NOT EQ "$FuturereqVersion"
set nope 1
endif
endif
If $Nope eq 1
Echo >ENV:Afuturetxt "Text *"Warnung:*"*nText *"Entweder haben sie die Reqtools Library nicht installiert,*"*nText *"oder sie verwenden evtl. eine veraltete Version.*"*nSpace*nText *"Reqtools wird von vielen Programmen benötigt, um*"*nText *"korrekt zu laufen. Wir empfehlen ihnen dringend, sie *"*nText *"nun zu installieren!*"*nText *"Empfohlene Version: $FutureReqVersion*"*nText *"Installierte Version: $LibsREQVersion*"*n"
set rtgcopy `Selector req.sel Installieren Weiter`
if $rtgcopy eq 1
Copy AFCD:libs/reqtools.library libs: ;Wird eigentlich keine Installation gebraucht
endif
endif
;Start Gauge Update
eval `getenv .val` + 7 >env:tempevil
setenv .val $tempevil
Gui vorher:sub.gc
;End Gauge Update
;Start MPEGA Check
set nope 0; Default
if not exists libs:mpega.library
set nope 1
set libsmpgversion "Keine!"
ELSE
set FuturempgVersion `version AFCD:libs/mpega.library`
set libsmpgversion `version libs:mpega.library`
if "$libsmpgversion" NOT EQ "$FutureMPGVersion"
set nope 1
endif
endif
If $Nope eq 1
Echo >ENV:Afuturetxt "Text *"Warnung:*"*nText *"Entweder haben sie die MPEGA Library nicht installiert,*"*nText *"oder sie verwenden evtl. eine veraltete Version.*"*nSpace*nText *" Die Mpeg Audio Library wird benötigt, um*"*nText *"die MP3 Songs abzuspielen. Wir empfehlen ihnen dringend, sie *"*nText *"nun zu installieren!*"*nText *"Empfohlene Version: $FutureMPGVersion*"*nText *"Installierte Version: $LibsMPGVersion*"*n"
set rtgcopy `Selector req.sel Installieren Weiter`
if $rtgcopy eq 1
copy AFCD:c/mpega.library libs:
endif
endif
;Start Gauge Update
eval `getenv .val` + 7 >env:tempevil
setenv .val $tempevil
Gui vorher:sub.gc
;End Gauge Update
wait 1
;MUI
;Check für, wenn exists Vars setzen, damit Programme defaults bekommen: